TERNAL INTEGER ARRAY ISTK[0:ONE], ITBL[0:ONE], INEST[0:ONE] ;
TERNAL STRING ARRAY  SSTK[0:ONE], STBL[0:ONE], SNEST[0:ONE] ;

TERNAL SAFE INTEGER ARRAY CW[0:ONE];

TERNAL INTEGER ARRAY	COMMENT "ALIASES" for Dynamic Arrays ;
	OLDPAGE, NEWPAGE, THISFRAME, MOLES,NMOLES, SHORT,NSHORT, OWLS,NOWLS, THISAREA, WAITBOX, AVAILREC[0:ONE],
	AA,NAA[0:ONE, 0:ONE] ;

TERNAL INTEGER SYMBOL,ERRFLAG;

TERNAL STRING ARRAY SYM[-1:ONE];
TERNAL INTEGER ARRAY NUMBER[-1:ONE];

DEFINE PRINT="OUTSTR(",MSG="&'15&'12)";

DEFINE ie = "COMMENT" ;